1 REM---------DECLARE VARIABLES---------
3 T$="[176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
4 B$="                                                                  "
5 C$="[219][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][219]"
6 E$="[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
7 SP$="                                 ":BO$="[221]"
8 M$=BO$+B$+CHR$(32)+BO$
9 DIMTI$(2,30):DIMN$(2):DIMP$(30):DIMS(2):FL=0
20 REM-----CASSETTE JACKET LISTER/------
30 REM-------PRINTER WRITTEN BY:--------
40 REM---MATTHEW J. LOTRIDGE 02/02/86---
60 REM-----MAIN TITLE SCREEN / MENU-----
80 POKE53280,0:POKE53281,0:POKE53272,23:OPEN3,4:PRINT#3,CHR$(27);"B":CLOSE3
90 PRINT"[147]   [176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174]"
100 PRINT"   [221][158] [195]ASSETTE [202]ACKET [204]ISTER/[208]RINTER [221]"
110 PRINT"   [221]     [158]BY [205]ATTHEW [202]. [204]OTRIDGE     [221]"
120 PRINT"   [173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
130 PRINT"[195]ASSETTE [202]ACKET PRINTER PROGRAM FOR THE [195]OMMODORE 64 COMPUTER ";
140 PRINT"AND [207]KIMATE 10":PRINT"COLOR PRINTER."
150 PRINT"1) [197][206][212][197][210][158] NEW TITLES"
160 PRINT"2) [197][196][201][212][158] CURRENT TITLES"
170 PRINT"3) [208][210][201][206][212][158] CURRENT TITLES"
180 PRINT"4) [197][206][196][158] PROGRAM"
190 GETA$:A=VAL(A$):IF(A<>1)AND(A<>2)AND(A<>3)AND(A<>4)THEN190
195 PRINT"[193]RE YOU SURE ABOUT CHOICE #";A;"?"
196 GETA$:IF(A$<>"Y")AND(A$<>"N")THEN196
200 IFA$="N"THEN90
210 ON A GOTO 280,220,2000,2500
220 IFFL=1THENGOSUB1200:GOTO90
230 PRINT"[147]     [206][207][160][212][201][212][204][197][211][160][195][213][210][210][197][206][212][204][217][160][201][206][160][205][197][205][207][210][217]      [146][158]"
240 PRINT"       PRESS ANY KEY TO CONTINUE"
250 GETA$:IFA$=""THEN250
260 GOTO90
280 REM-----CONTENTS INPUT SECTION------
290 FORB=1TO2
300 PRINT"[147][215]HAT IS THE TITLE FOR SIDE #";B
310 INPUTN$(B)
320 PRINT"[201]S THE TITLE OF SIDE[158]";B;"CORRECT?"
330 PRINT"[158]";N$(B)
340 GETA$:IF(A$<>"Y")AND(A$<>"N")THEN340
350 IFA$="N"THEN300
360 X=LEN(N$(B))
370 IFX>67THENL=1:GOTO390
380 L=0:N$(B)=BO$+(N$(B)+RIGHT$(B$,67-X))+BO$
390 IFL=1THEN300
400 PRINT"[147]"
410 FORA=1TO30
420 PRINT"[211]IDE";B;"[212]ITLE #";A
430 INPUTTI$(B,A)
440 S(B)=A
450 GOSUB490
460 NEXT A
470 NEXT B
480 FL=1:GOTO90
490 REM---STRING LENGTH CHECKER/FIXER---
500 IFTI$(B,A)="END"THEN1010
510 X=LEN(TI$(B,A))
520 IFX<=33THEN690
530 IFX>=67THEN670
540 FORCH=XTO1STEP-1
550 TI$(B,A+1)=TI$(B,A)
560 IFMID$(TI$(B,A),CH,1)<>" "THENNEXTCH
570 IFCH=0THEN670
580 IFCH>33THENNEXTCH
590 TI$(B,A)=LEFT$(TI$(B,A),CH)
600 Z=LEN(TI$(B,A))
610 TI$(B,A)=TI$(B,A)+(RIGHT$(SP$,33-Z))
620 X=X-CH:TI$(B,A+1)=RIGHT$(TI$(B,A+1),X)
630 Z=LEN(TI$(B,A+1))
640 TI$(B,A+1)="[160]"+(TI$(B,A+1))+(RIGHT$(SP$,32-Z))
650 A=A+1:RETURN
670 PRINT"[212][201][212][204][197] [212][207][207] [204][207][206][199] [197][210][210][207][210][146][158]"
680 A=A-1:RETURN
690 X=LEN(TI$(B,A))
700 TI$(B,A)=TI$(B,A)+RIGHT$(SP$,33-X)
710 RETURN
1010 REM--BLANK LINE INSERTION ROUTINE-
1030 TI$(B,A)=SP$
1040 FORA=S(B)TO30
1050 TI$(B,A)=SP$
1060 NEXTA
1070 A=A-1:RETURN
1200 REM---TITLE CHECKER/VERIFICATION---
1220 FORB=1TO2
1230 PRINT"[147]"
1240 FORA=1TO(S(B)-1)
1250 PRINT"[151]"A;"[158]"TI$(B,A)
1260 NEXTA
1270 PRINT"[193]DD, [205]ODIFY, [196]ELETE OR [206]ONE?"
1280 GETA$:IF(A$<>"A")AND(A$<>"M")AND(A$<>"D")AND(A$<>"N")THEN1280
1290 IFA$="N"THEN1370
1291 IFA$="A"THEN1500
1292 IFA$="D"THEN1700
1300 INPUT"[159][215]HICH LINE NUMBER[158]";LN
1310 IF(LN<1)OR(LN>30)THENPRINT"[145]";
1320 A=LN
1330 PRINT"[211]IDE";B;"[212]ITLE #";A
1331 PRINT"";TI$(B,A)
1340 INPUT"[145]";TI$(B,A)
1350 GOSUB490
1360 GOTO1230
1370 NEXTB
1380 FORA=1TO30
1390 P$(A)=BO$+TI$(1,A)+BO$+TI$(2,A)+BO$
1400 NEXTA
1410 GOTO90
1500 REM----------ADD A LINE------------
1510 INPUT"[193]DD A LINE WHERE";D
1520 IF(D<1)OR(D>30)THENPRINT"[145]";:GOTO1510
1530 PRINT"[193]RE YOU SURE YOU WANT TO ADD #";D"?"
1540 GETA$:IF(A$<>"Y")AND(A$<>"N")THEN1540
1550 IFA$="N"THEN1230
1560 FORA=S(B)+1TOD+1STEP-1
1570 TI$(B,A)=TI$(B,A-1)
1580 NEXTA
1590 TI$(B,A)=SP$
1600 S(B)=S(B)+1
1610 GOTO1230
1700 REM----------DELETE LINE-----------
1710 INPUT"[196]ELETE WHICH LINE";D
1720 IF(D<1)OR(D>S(B))THENPRINT"[145]";:GOTO1710
1730 PRINT"[193]RE YOU SURE YOU WANT TO DELETE #";D"?"
1740 GETA$:IF(A$<>"Y")AND(A$<>"N")THEN1740
1750 IFA$="N"THEN1230
1760 FORA=DTOS(B)
1770 TI$(B,A)=TI$(B,A+1)
1780 NEXTA
1790 TI$(B,A-1)=SP$
1800 S(B)=S(B)-1
1810 GOTO1230
2000 REM--------PRINTER ROUTINE---------
2010 PRINT"[147]         [208][210][201][206][212][201][206][199]...[208][204][197][193][211][197] [215][193][201][212]         "
2020 OPEN3,4
2030 PRINT#3,CHR$(29);" "
2040 PRINT#3,T$
2050 FORA=1TO15
2060 PRINT#3,CHR$(17);P$(A)
2070 NEXT
2080 PRINT#3,C$
2090 IF(S(1)<=16)AND(S(2)<=16)THEN2140
2100 FORA=16TO30
2110 PRINT#3,CHR$(17);P$(A)
2120 NEXT
2130 PRINT#3,C$
2140 PRINT#3,CHR$(17);N$(1)
2150 PRINT#3,CHR$(17);N$(2)
2160 PRINT#3,C$
2170 FORA=1TO3
2180 PRINT#3,M$
2190 NEXTA
2200 PRINT#3,C$
2210 PRINT#3,CHR$(12)
2220 CLOSE3
2230 GOTO90
2500 REM----------END PROGRAM----------
2510 POKE53272,21:PRINT"[147]":END
3000 REM---------VARIABLE LIST---------
3010 REM-  A  = LINE NUMBER           -
3020 REM-  B  = SIDE NUMBER           -
3030 REM-  L  = NOTHING IMPORTANT     -
3040 REM-  X  = VALUE OF STRING LENGTH-
3050 REM-  Z  = LENGTH IN CHECKER     -
3060 REM- CH  = COUNTER IN CHECKER    -
3070 REM- FL  = EDITER FLAG           -
3080 REM- ZZ  = VALUE OF INPUT STRING -
3090 REM- A$  = GET $ VARIABLE        -
3100 REM- B$  = 77 SPACES             -
3110 REM- C$  = CENTER LINE           -
3120 REM- E$  = BOTTOM LINE           -
3130 REM- M$  = 77 SPACES PLUS BORDERS-
3140 REM- T$  = TOP LINE              -
3150 REM- BO$ = BORDER CHARACTER      -
3160 REM- SP$ = 38 SPACES             -
3170 REM-------------------------------